10 NT=8;&(10)=0;&(9)=50;BC=122;gosub 170
  20 NT=0;clear ;&(0)=7;&(1)=7;&(2)=122;&(3)=240;&(9)=0;&(10)=180
  30 A=20200;W=7723;X=-22013
  35 Y=17988
  40 for G=0to 1440step 240;gosub 200
  50 next G
  60 W=3115;X=-235;G=0
  70 gosub 200
  80 W=299;X=-4095;Y=Y+80
  90 for G=0to 640step 160
  95 for K=0to 5;gosub 200
  96 next K
 100 K=0;next G
 110 Y=Y+81
 120 for G=0to 480step 160
 125 for K=0to 4;gosub 200
 126 next K
 130 K=0;next G
 140 CY=40;print "        OLD  GLORY                   1981
 160 for Z=0to 5000;next Z;run 
 170 print "5000504330+23300000+2330+2350354000200220+1220+1240000032350060002000
 180 BC=7;print "00mul 50mul 50mul 4mul 3mul 30+mul 2mul 3mul 300000+mul 2mul 3mul 30+2mul 3mul 4mul 3mul 27mul 2000
 190 BC=240;print "mul 10mul 10mul 107mul 1-mul 30mul 2mul 1mul 80000mul 1mul 2mul 3mul 5mul 1mul 2mul 3mul 556mul 3mul 2000mul 1
 195 BC=7;return 
 200 %(A)=-43
 210 %(A+2)=W
 220 %(A+4)=X
 230 %(A+6)=Y+G+2mul K
 240 %(A+8)=-13871
 250 CALL A;return 
:return